home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / hbxmas pt2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  259 lines
  1. 100 rem----hbxmas pt2----
  2. 110 onagoto150,160,170
  3. 120 goto190
  4. 130 rem....load....
  5. 140 na$=na$+"1":a=1:loadna$,8,1
  6. 150 a=a+1:na$=left$(na$,len(na$)-1):na$=na$+"2":loadna$,8,1
  7. 160 a=a+1:na$=left$(na$,len(na$)-1):na$=na$+"3":poke53265,11:loadna$,8,1
  8. 170 a=0:goto980
  9. 180 rem...define variables,etc...
  10. 190 bc=53280:sc=53281:v=53248:np=0:pokebc,6
  11. 200 rem hi-res sprite pointers:
  12. 210 s0=24568:s1=24569:s2=24570:s3=24571:s4=24572:s5=24573:s6=24574:s7=24575
  13. 220 rem lo-res sprite pointers:
  14. 230 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  15. 240 rem....load new sprite data....
  16. 250 fori=0to127:readj:poke23360+i,j:next
  17. 260 rem....top of man leaning over
  18. 270 data0,0,0,0,0,0,0,0
  19. 280 data0,0,0,0,0,3,192,0
  20. 290 data15,240,0,63,252,0,63,252
  21. 300 data0,63,252,0,171,240,0,170
  22. 310 data160,2,170,168,2,170,168,2
  23. 320 data170,170,2,170,170,2,170,138
  24. 330 data2,170,138,2,170,138,2,170
  25. 340 data138,2,170,138,2,170,138,0
  26. 350 rem....bottom of man leaning over
  27. 360 data3,255,192,15,255,192,15,255
  28. 370 data192,15,255,192,15,255,192,15
  29. 380 data255,192,15,255,192,15,255,192
  30. 390 data15,255,192,15,207,192,15,207
  31. 400 data192,15,207,192,15,207,192,15
  32. 410 data207,192,15,207,192,15,207,192
  33. 420 data15,207,192,15,207,192,15,207
  34. 430 data192,15,207,192,15,207,192,0
  35. 440 rem....top of woman facing left
  36. 450 fori=0to127:readj:poke22784+i,j:poke15552+i,j:next
  37. 460 data0,60,0,3,255,0,3,255
  38. 470 data192,0,87,192,0,215,192,0
  39. 480 data87,240,1,85,0,0,84,0
  40. 490 data0,84,0,0,16,0,0,168
  41. 500 data0,2,170,0,2,170,0,10
  42. 510 data170,0,10,170,0,10,170,0
  43. 520 data1,170,0,1,170,0,1,168
  44. 530 data0,1,168,0,1,168,0,0
  45. 540 data1,168,0,1,170,0,2,170
  46. 550 data0,2,170,0,2,170,0,2
  47. 560 data170,0,2,170,0,2,170,0
  48. 570 data2,170,0,10,170,0,10,170
  49. 580 data128,0,84,0,0,84,0,0
  50. 590 data84,0,0,84,0,0,84,0
  51. 600 data0,84,0,0,84,0,0,84
  52. 610 data0,3,252,0,12,204,0,0
  53. 620 fori=0to127:readj:poke22656+i,j:poke15744+i,j:next
  54. 630 rem....top of man standing
  55. 640 data3,255,0,15,255,192,63,87
  56. 650 data240,53,85,112,53,85,112,20
  57. 660 data84,80,21,85,80,21,69,80
  58. 670 data5,85,64,5,253,64,3,207
  59. 680 data0,0,84,0,10,154,128,42
  60. 690 data170,160,42,170,160,22,138,80
  61. 700 data22,170,80,22,170,80,22,170
  62. 710 data80,22,138,80,22,170,80,0
  63. 720 rem....bottom of man standing
  64. 730 data15,255,192,15,255,192,15,255
  65. 740 data192,15,255,192,15,255,192,15
  66. 750 data255,192,15,255,192,15,255,192
  67. 760 data15,255,192,15,207,192,15,207
  68. 770 data192,15,207,192,15,207,192,15
  69. 780 data207,192,15,207,192,15,207,192
  70. 790 data15,207,192,15,207,192,15,207
  71. 800 data192,15,207,192,15,207,192,0
  72. 810 rem....snowfall....
  73. 820 fori=0to63:readj:poke22592+i,j:poke15680+i,j:next
  74. 830 data128,128,128,0,0,0,0,0,0,0,0,0,16,16,16,0,0,0,0,0,0
  75. 840 data128,128,128,0,0,0,0,0,0,0,0,0,16,16,16,0,0,0,0,0,0
  76. 850 data1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  77. 860 rem....boy standing....
  78. 870 fori=0to63:readj:poke15872+i,j:next
  79. 880 data0,63,0,0,245,0,0,215
  80. 890 data0,0,213,64,0,215,0,0
  81. 900 data5,0,0,42,0,0,170,128
  82. 910 data0,170,128,0,170,128,0,170
  83. 920 data128,0,170,128,0,31,0,0
  84. 930 data31,0,0,63,0,0,63,0
  85. 940 data0,63,0,0,63,0,0,63
  86. 950 data0,0,51,0,0,21,64,0
  87. 960 :
  88. 970 goto1150
  89. 980 onnpgoto1270
  90. 990 :
  91. 1110 :
  92. 1120 rem...fade-out...
  93. 1130 fori=0to7:poke843,0+i:poke844,96:sys830:next:return
  94. 1140 :
  95. 1150 rem....main program....
  96. 1160 pokebc,6:pokesc,6:poke53272,23
  97. 1170 gosub63000:print"  [212]he children's father was a
  98. 1180 [153]"trained medical assistant, so he
  99. 1190 print"checked him for injuries."
  100. 1200 print""chr$(34)"[201] don't believe he is badly"
  101. 1210 print"hurt,"chr$(34)" said the father. "chr$(34)"[200]e must"
  102. 1220 print"have landed flat on his back and"
  103. 1230 print"the soft ground cushioned the"
  104. 1235 print"fall."chr$(34)
  105. 1240 d=20:gosub5000
  106. 1250 rem....living room scene....
  107. 1260 goto10000:np=1
  108. 1270 rem....set up sprites....
  109. 1280 fori=0to14step2:pokev+i,0:next
  110. 1290 pokes0,108:pokev+39,8:pokev,48:pokev+1,159:rem huggy bear
  111. 1300 pokev+28,254:pokev+37,7:pokev+38,9:rem set colors
  112. 1310 pokes1,109:pokev+40,4:pokev+2,105:pokev+3,165:rem man top
  113. 1320 pokes2,110:pokev+41,9:pokev+4,107:pokev+5,186:rem man bottom
  114. 1330 pokes3,100:pokev+42,10:pokev+6,158:pokev+7,165:rem woman top
  115. 1340 pokes4,101:pokev+43,10:pokev+8,158:pokev+9,186:rem woman bottom
  116. 1350 pokes5,87:pokev+44,5:pokev+10,205:pokev+11,160:rem girl top
  117. 1360 pokes6,86:pokev+45,6:pokev+12,205:pokev+13,181:rem girl bottom
  118. 1370 pokes7,91:pokev+46,4:pokev+14,125:pokev+15,184:rem little boy
  119. 1380 pokev+21,255
  120. 1390 pokesc,14:poke53265,27:poke251,128:poke252,96:poke253,92:sys51456:sys51459
  121. 1400 d=5:gosub5000
  122. 1410 :
  123. 1420 rem....text sequences....
  124. 1430 pokev+21,0:sys878:poke53265,11:pokesc,6:sys51459:print"[147]":poke53272,23
  125. 1440 pokep5,242:pokev+10,255:pokev+11,100:pokev+23,32:pokev+29,32:pokev+21,32
  126. 1450 gosub63000
  127. 1455 print"  "chr$(34)"[212]his little bear came"
  128. 1457 print"running to our house and"
  129. 1460 print"told me about the accident."
  130. 1462 print"[212]hen he took me to a place in"
  131. 1470 print"the woods where [201] found[202]immy."chr$(34)
  132. 1480 poke53265,27:d=20:gosub5000
  133. 1490 pokev+21,0:print"[147]":pokep5,246:pokev+44,4:pokev+21,32
  134. 1500 gosub63000:print"  "chr$(34)"[215]ell, little [194]ear,"chr$(34)"
  135. 1510 [153]"said the children's"
  136. 1520 [153]"father, "[199](34)"we certainly are"
  137. 1530 [153]"grateful to you for your help!"
  138. 1535 [153]"(NULL)hat is your name and where do"
  139. 1540 [153]"you live?"[199](34):d[178]20:[141]5000
  140. 1550 [151]v[170]21,0:[153]"load":[151]p0,254:[151]v[170]39,8:[151]v,50:[151]v[170]1,100
  141. 1560 [151]v[170]23,1:[151]v[170]29,1:[151]v[170]21,1
  142. 1570 [141]63000:[153]""[163]13)[199](34)"(NULL)y name is left$(NULL)chr$chr$(NULL) peekvalatn(NULL),"[199](34)
  143. 1580 [153][163]13)"said the little bear,":[153][163]13)"and he told how he"
  144. 1590 [153][163]13)"had left the toy store":[153][163]13)"to search for a home
  145. 1600 print"for himself before [195]hristmas."
  146. 1610 d=20:gosub5000
  147. 1620 pokev+21,0:print"[147]":pokev+44,5
  148. 1630 pokep5,242:pokev+10,255:pokev+11,65:pokev+23,32:pokev+29,32:pokev+21,32
  149. 1640 gosub63000:print"  "chr$(34)"[207]h father, can he stay"
  150. 1645 print"here with us? [200]e can be a part"
  151. 1650 print"of our family!"chr$(34):d=10:gosub5000
  152. 1660 print"  [194]y this time the little boy"
  153. 1670 print"had awakened and was standing."
  154. 1675 d=5:gosub5000
  155. 1680 pokep7,248:pokev+46,4:pokev+14,50:pokev+15,190:pokev+23,160:pokev+29,160
  156. 1690 pokev+28,160:pokev+21,160
  157. 1700 print""chr$(34)"[208]lease father.  [215]e'll take real"
  158. 1710 printtab(13)"good care of him and he"
  159. 1720 printtab(13)"can be our playmate."chr$(34)
  160. 1730 d=10:gosub5000
  161. 1740 pokev+21,0:print"[147]"
  162. 1750 pokep3,243:pokev+42,10:pokev+6,255:pokev+7,80:pokev+23,8:pokev+29,8
  163. 1760 pokev+28,8:pokev+21,8
  164. 1770 gosub63000:print"  "chr$(34)"[215]ell, [201] think it"
  165. 1771 print"would be nice to"
  166. 1772 print"have a [212]eddy [194]ear"
  167. 1780 print"around the house."
  168. 1790 print"[200]e would be good company.  [200]ow"
  169. 1795 print"about it, [200]uggy [194]ear, will you"
  170. 1800 print"live with us?"chr$(34)" asked the"
  171. 1805 print"children's mother."
  172. 1810 d=20:gosub5000
  173. 1820 pokev+21,0:pokev+23,0:pokev+29,0:pokev+28,0:print"[147]"
  174. 1830 pokep3,255:pokev+42,8:pokev+6,160:pokev+7,200:pokev+21,8
  175. 1835 gosub63000
  176. 1840 print"  "chr$(34)"[199]osh!"chr$(34)" said [200]uggy.  "chr$(34)"[212]hat's"
  177. 1850 print"the nicest thing that could"
  178. 1860 print"happen to me.  [201] sure would like"
  179. 1865 print"to live with you."chr$(34)
  180. 1870 d=10:gosub5000
  181. 1880 print"  [212]he boy and girl were so happy"
  182. 1890 print"to have the bear live with them"
  183. 1895 print"that they gave him a great big"
  184. 1897 print"bear hug."
  185. 1900 d=5:gosub5000
  186. 1910 pokep2,248:pokev+41,4:pokev+4,150:pokev+5,200
  187. 1920 pokep0,242:pokev+39,5:pokev,172:pokev+1,192
  188. 1930 pokev+21,12:forx=100to150:pokev+4,x:next
  189. 1940 pokep0,242:pokev+39,5:pokev,255:pokev+1,192
  190. 1950 pokep1,241:pokev+40,14:pokev+2,255:pokev+3,213:pokev+28,7:pokev+21,15
  191. 1960 forx=255to169step-1:pokev,x:pokev+2,x:next
  192. 1970 d=10:gosub5000:pokev+21,8
  193. 1980 gosub63000:print"  [193]fter everyone had gone to bed
  194. 1990 [153]"left$uggy peekear sat under the"
  195. 2000 [153]"lenhristmas